home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Oh!X 2001 Spring
/
Oh!X 2001 Spring Special CD-ROM (Japan).7z
/
Oh!X 2001 Spring Special CD-ROM (Japan) (Track 1).bin
/
CGI
/
list2.cgi
< prev
next >
Wrap
Text File
|
2000-10-28
|
965b
|
41 lines
#!/usr/local/bin/perl
#REFERER Log Viewer
# by de 2000
require "cgi-lib.pl";
require "jcode.pl";
&ReadParse(*input);
@val = split(/&/,$input);
foreach $i(0 .. $#val){
$val[$i] =~ s/%(..)/pack("c",hex($1))/ge;
($name,$value) = split(/=/,$val[$i],2);
$value =~ s/\+/ /g;
$val{$name} = $value;
}
print &PrintHeader;
print "<HTML><HEAD><TITLE>ログビューア</TITLE>\n";
print "<META HTTP-EQUIV=\"content-type\" CONTENT=\"text/html;charset=x-euc-jp\">\n";
print "<LINK REL=stylesheet TYPE=\"text/css\" HREF=\"pcbrowser.css\">\n";
print "<BODY BGCOLOR=\"#fdfad2\">\n";
print "<H1>リンク探知・ログビューアー<BR></H1><H2>[呼び出し元・最新20]<BR></H2><P>\n";
open(SRC,"refererlog.dat");
while(<SRC>){
chop;
print "<A HREF=\"";
print "$_";
print "\">";
print "$_";
print "</A><BR>\n";
}
print "</P><HR>\n";
print "<DIV ALIGN=CENTER><A HREF=\"index.html\">トップページへ</A><BR></DIV>\n";
print "<HR></BODY></HTML>\n";